home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 10 / amigaformatcd10.iso / -screenplay- / shareware / mris 1.1 / install < prev    next >
Text File  |  1996-10-02  |  12KB  |  290 lines
  1. ;*** -*- lisp -*-
  2. ;*** mris installation script
  3. ;*** $VER: Install 1.1 (13.9.96)© 1996 Christian Stieber
  4.  
  5. ;*** localized strings
  6. (set Default-Manual 1)
  7. (set Default-Catalog 1)
  8. (if (= @language "english")
  9.     ((set #OS-Confirm (cat "Mris requires AmigaOS Release 3.0 or newer.\n"
  10.                "You are currently running an older release, which means "
  11.                "mris will not run on your system. Do you want to install "
  12.                "it anyway?"))
  13.      (set #OS-Error "AmigaOS Release 3.0 or newer is required to run mris.")
  14.      (set #Select-Mris "Please select a place to install mris:")
  15.      (set #Installing-Exec "Installing mris program.")
  16.      (set #Clearing-Tooltypes "Clearing tooltypes.")
  17.      (set #Installing-Sprites "Installing sprites.")
  18.      (set #Installing-Sprites-Help (cat "Mris comes with two sprite sets. If you only "
  19.                     "use one gender (mris or msit) at all times, "
  20.                     "you don't need both sets.\n"
  21.                     "The sprites have to be located in the same drawer "
  22.                     "as the program itself.\n\n"
  23.                     @copyfiles-help))
  24.      (set #Installing-Gamesupport "Installing gamesupport.library.")
  25.      (set #Installing-Gamesupport-Help (cat "Mris requires a support library called gamesupport.library.\n"
  26.                         "This library should be installed in LIBS: so other games can "
  27.                         "use it as well.\n"
  28.                         "If you don't want it there, you can install it into the same "
  29.                         "drawer that the mris program is in. However, the installation "
  30.                         "script can't do that for you.\n\n"
  31.                         @copylib-help))
  32.      (set #Installing-Gardens "Installing mris gardens.")
  33.      (set #Installing-Gardens-Help (cat "Mris comes with various garden files. "
  34.                     "They are not required, although at least "
  35.                     "one of them should be installed so you can "
  36.                     "play the game.\n\n"
  37.                     @copyfiles-help))
  38.      (set #Installing-Catalogs "Installing catalogs.")
  39.      (set #Installing-Manuals "Installing manuals.")
  40. ;     (set #Installing-Catalogs-Help (cat "Catalog files must be installed in the "
  41. ;                     "\"%s\" or the \"LOCALE:Catalogs\" drawer.\n\n"
  42. ;                     @copyfiles-help))
  43.      (set #Settings-Username "Setting default username.")
  44.      (set #Ask-Catalogs (cat "Which languages do you want to install?\n"
  45.                  "German is always available, since it is built into the program."))
  46.      (set #Ask-Catalogs-Help (cat "You only need to install the languages that are actually "
  47.                   "used on your system. There is absolutely no reason to install "
  48.                   "other languages as well.\n\n"
  49.                   @askoptions-help))
  50.      (set #Ask-Manuals "Which manuals do you want to install?")
  51.      (set #Ask-Change-Username (cat "As fas as I can tell, mris will use \"%s\" "
  52.                       "as its default username.\n"
  53.                       "Do you want to use another default username?"))
  54.      (set #Ask-Change-Username-Help (cat "The default username should be the name of the person "
  55.                      "who will be using the game more often than other persons.\n"
  56.                      "Usernames should be full names, such as \"Christian Stieber\" "
  57.                      "or \"Christine Ruf\".\n\n"
  58.                      @askbool-help))
  59.      (set #Ask-Username "Please enter the default username")
  60.      (set #Ask-Username-Help #Ask-Change-Username-Help)
  61.      (set #Ask-mris-drawer (cat "You have selected the drawer \"%s\". "
  62.                 "Do you want to create a new drawer for mris inside it?")))
  63.   (if (= @language "deutsch")
  64.       ((set Default-Catalog 0)
  65.        (set #OS-Confirm (cat "Für mris wird AmigaOS 3.0 oder neuer benötigt.\n"
  66.                  "Sie benutzen zur Zeit eine ältere Version, weswegen "
  67.                  "mris auf ihrem System nicht funktionieren wird. "
  68.                  "Möchten sie es dennoch installieren?"))
  69.        (set #OS-Error "Mris benötigt AmigaOS 3.0 oder neuer")
  70.        (set #Select-Mris "Wählen sie einen Platz für mris:")
  71.        (set #Installing-Exec "Installiere das mris Programm.")
  72.        (set #Clearing-Tooltypes "Löschen der Programmmerkmale.")
  73.        (set #Installing-Sprites "Installiere die Sprites.")
  74.        (set #Installing-Sprites-Help (cat "Es gibt zwei Spritesätze für mris. Wenn sie immer "
  75.                       "nur eine Version des Spiels (mris oder msit) verwenden, "
  76.                       "dann brauchen sie nicht beide Sätze.\n"
  77.                       "Die Sprites müssen in demselben Schublade wie das "
  78.                       "Programm selbst liegen.\n\n"
  79.                       @copyfiles-help))
  80.        (set #Installing-Gamesupport "Installiere gamesupport.library.")
  81.        (set #Installing-Gamesupport-Help (cat "Mris benötigt eine Funktionsbibliothek namens gamesupport.library.\n"
  82.                           "Diese Bibliothek sollte in LIBS: installiert werden um eine "
  83.                           "Benutzung durch weitere Spiele zu ermöglichen.\n"
  84.                           "Wenn sie sie dort jedoch nicht haben wollen können sie sie "
  85.                           "in derselben Schublade installieren in der sich auch das "
  86.                           "mris Programm befindet. Allerdings kann das Installationsskript "
  87.                           "dies nicht erledigen.\n\n"
  88.                           @copylib-help))
  89.        (set #Installing-Gardens "Installiere Gartendateien.")
  90.        (set #Installing-Gardens-Help (cat "Es gibt mehrere Gartendateien für mris. "
  91.                       "Sie werden nicht unbedingt benötigt, aber sie "
  92.                       "sollten zumindest eine Datei installieren damit "
  93.                       "das Spiel überhaupt spielbar ist.\n\n"
  94.                       @copyfiles-help))
  95.        (set #Installing-Catalogs "Installiere Catalog-Dateien.")
  96. ;       (set #Installing-Catalogs-Help (cat "Catalog-Dateien müssen in der Schublade "
  97. ;                       "\"%s\" oder \"LOCALE:Catalogs\" installiert werden.\n\n"
  98. ;                       @copyfiles-help))
  99.        (set #Installing-Manuals "Installiere Handbücher.")
  100.        (set #Setting-Username "Setze den Vorgabenamen.")
  101.        (set #Ask-Catalogs (cat "Welche Sprachen möchten sie installieren?\n"
  102.                    "Deutsch ist immer verfügbar, da es fest in das Programm eingebaut ist."))
  103.        (set #Ask-Catalogs-Help (cat "Sie brauchen nur die Sprachen installieren die auf ihrem System "
  104.                     "auch tatsächlich benutzt werden. Es gibt überhaupt keinen Grund "
  105.                     "auch andere Sprachen zu installieren.\n\n"
  106.                     @askoptions-help))
  107.        (set #Ask-Manuals "Welche Handbücher möchten sie installieren?")
  108.        (set #Ask-Change-Username (cat "Soweit ich feststellen kann wird mris den Namen "
  109.                       "\"%s\" als Vorgabe verwenden.\n"
  110.                       "Möchten sie einen anderen Vorgabenamen benutzen?"))
  111.        (set #Ask-Change-Username-Help (cat "Der Vorgabename sollte der Name derjenigen Person sein "
  112.                        "die das Spiel am häufigsten benutzt.\n"
  113.                        "Benutzernamen sollten vollständige Namen, wie z.B. "
  114.                        "\"Christian Stieber\" oder \"Christine Ruf\" sein.\n\n"
  115.                        @askbool-help))
  116.        (set #Ask-Username "Bitte geben sie den Vorgabenamen ein")
  117.        (set #Ask-Username-Help #Ask-Change-Username-Help)
  118.        (set #Ask-mris-drawer (cat "Sie haben die Schublade \"%s\" ausgewählt. "
  119.                   "Möchten sie darin eine Schublade für mris anlegeen?")))))
  120.  
  121. ;*** check OS version
  122. (if (< (/ (getversion) 65536) 39)
  123.     (if (not (askbool (prompt #OS-Confirm)
  124.               (help @askbool-help)
  125.               (default 0)))
  126.     (abort #OS-Error)))
  127.  
  128. ;*** check for a better default directory
  129. (set Number 0)
  130. (set Done 0)
  131. (while (not done)
  132.   (if (set New-Dir (select Number "Games:" "Spiele:" ""))
  133.       ((if (= (exists New-Dir (noreq)) 2)
  134.        ((set @default-dest New-Dir)
  135.         (set Done 1)))
  136.        (set Number (+ Number 1)))
  137.     (set Done 1)))
  138.  
  139. ;*** get directory to install mris
  140. (set @default-dest (askdir (prompt #Select-Mris)
  141.                (help @askdir-help)
  142.                (default @default-dest)
  143.                (newpath)))
  144.  
  145. ;*** if name doesn't contain mris or msit, ask if we should create a drawer
  146. (if (not (patmatch "#?(mris|msit)#?" @default-dest))
  147.     (if (askbool (prompt (#Ask-mris-drawer @default-dest))
  148.          (help @askbool-help)
  149.          (default 1))
  150.     (set @default-dest (tackon @default-dest "mris"))))
  151.  
  152. ;*** install mris executable
  153. (copyfiles (prompt #Installing-Exec)
  154.        (source "mris")
  155.        (dest @default-dest)
  156.        (infos)
  157.        (optional force askuser))
  158. (tooltype (prompt #Clearing-Tooltypes)
  159.       (dest (tackon @default-dest "mris"))
  160.       (settooltype "UP")
  161.       (settooltype "DOWN")
  162.       (settooltype "LEFT")
  163.       (settooltype "RIGHT")
  164.       (settooltype "THROW")
  165.       (settooltype "PAUSE")
  166.       (settooltype "QUIT")
  167.       (settooltype "ICONIZE")
  168.       (settooltype "RANDOM")
  169.       (settooltype "DYNAMIC")
  170.       (settooltype "USER")
  171.       (settooltype "PUBSCREEN")
  172.       (settooltype "SCREEN")
  173.       (settooltype "JOYSTICK")
  174.       (settooltype "FONT")
  175.       (settooltype "MSIT")
  176.       (settooltype "(UP" "<key description>)")
  177.       (settooltype "(DOWN" "<key description>)")
  178.       (settooltype "(LEFT" "<key description>)")
  179.       (settooltype "(RIGHT" "<key description>)")
  180.       (settooltype "(THROW" "<key description>)")
  181.       (settooltype "(PAUSE" "<key description>)")
  182.       (settooltype "(QUIT" "<key description>)")
  183.       (settooltype "(ICONIZE" "<key description>)")
  184.       (settooltype "(RANDOM" "YES or NO)")
  185.       (settooltype "(DYNAMIC" "YES or NO)")
  186.       (settooltype "(USER" "<user name>)")
  187.       (settooltype "(PUBSCREEN" "<public screen name>)")
  188.       (settooltype "(SCREEN" "<screen description>)")
  189.       (settooltype "(JOYSTICK" "YES or NO)")
  190.       (settooltype "(FONT" "<font description>)")
  191.       (settooltype "(MSIT" "YES or NO)")
  192.       (setstack 47000)
  193.       (noposition))
  194.  
  195. ;*** install sprites
  196. (copyfiles (prompt #Installing-Sprites)
  197.        (help #Installing-Sprites-Help)
  198.        (source "")
  199.        (dest @default-dest)
  200.        (pattern "(mris|msit).sprites")
  201.        (optional force askuser)
  202.        (confirm))
  203.  
  204. ;*** install gamesupport.library
  205. (copylib (prompt #Installing-Gamesupport)
  206.      (help #Installing-Gamesupport-Help)
  207.      (source "gamesupport.library")
  208.      (dest "LIBS:")
  209.      (optional force askuser)
  210.      (confirm))
  211.  
  212. ;*** install gardens
  213. (copyfiles (prompt #Installing-Gardens)
  214.        (help #Installing-Gardens-Help)
  215.        (source "mris gardens")
  216.        (dest (tackon @default-dest "mris gardens"))
  217.        (choices "Alphabet" "Digits" "Puzzle")
  218.        (optional force askuser)
  219.        (confirm))
  220.  
  221. ;*** install catalogs
  222. (set Catalog-Selection (askoptions (prompt #Ask-Catalogs)
  223.                    (help #Ask-Catalogs-Help)
  224.                    (choices "english")
  225.                    (default Default-Catalog)))
  226. (if Catalog-Selection
  227.     ((set Number 0)
  228.      (set Catalog-Pattern "(%")
  229.      (while (set Catalog (select Number "english" ""))
  230.        ((if (in Catalog-Selection Number)
  231.         (set Catalog-Pattern (cat Catalog-Pattern "|" Catalog)))
  232.     (set Number (+ Number 1))))
  233.      (set Catalog-Pattern (cat Catalog-Pattern ")"))
  234.      (copyfiles (prompt #Installing-Catalogs)
  235.         (help @copyfiles-help)
  236.         (source "Catalogs")
  237.         (pattern Catalog-Pattern)
  238.         (dest (tackon @default-dest "Catalogs"))
  239.         (optional force askuser)
  240.         (confirm))))
  241.  
  242. ;*** install manuals
  243. (set Manual-Selection (askoptions (prompt #Ask-Manuals)
  244.                   (help @askoptions-help)
  245.                   (choices "english")
  246.                   (default Default-Manual)))
  247. (if Manual-Selection
  248.     ((set Number 0)
  249.      (set Manual-Pattern "(%")
  250.      (while (set Manual (select Number "english" ""))
  251.        ((if (in Manual-Selection Number)
  252.         (set Manual-Pattern (cat Manual-Pattern "|" Manual)))
  253.     (set Number (+ Number 1))))
  254.      (set Manual-Pattern (cat Manual-Pattern ")"))
  255.      (copyfiles (prompt #Installing-Manuals)
  256.         (help @copyfiles-help)
  257.         (source "Manuals")
  258.         (pattern Manual-Pattern)
  259.         (dest (tackon @default-dest "Manuals"))
  260.         (optional force askuser)
  261.         (confirm))))
  262.  
  263. ;*** set default username
  264. (if @user-level
  265.     ((set Number 0)
  266.      (set Done 0)
  267.      (while (not done)
  268.        (if (set Env-Name (select Number "REALNAME" "USERNAME" "USER" ""))
  269.        ((if (= (exists (tackon "ENV:" Env-Name)) 1)
  270.         ((set Username (getenv Env-Name))
  271.          (if (> (strlen Username) 4)
  272.              (set Done 1)
  273.            (set Username ""))))
  274.         (set Number (+ Number 1)))
  275.      (set Done 1)))
  276.      (if Username
  277.      (set Change-Username (askbool (prompt (#Ask-Change-Username Username))
  278.                        (help #Ask-Change-Username-Help)
  279.                        (default 0)))
  280.        (set Change-Username 1))
  281.      (if Change-Username
  282.      ((set Username (askstring (prompt #Ask-Username)
  283.                    (help #Ask-Username-Help)
  284.                    (default Username)))
  285.       (if Username
  286.           (tooltype (prompt #Setting-Username)
  287.             (dest (tackon @default-dest "mris"))
  288.             (settooltype "USER" Username)
  289.             (settooltype "(USER")))))))
  290.